home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Amos / demo3 / Ninja2.AMOS / Ninja2.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1980-07-24  |  7.1 KB  |  304 lines
  1. 'Ninja fight 
  2. 'Load "AceCracker Demos:NinjaSprites.Abk"
  3. 'Load "AceCracker Demos:OleSamples.Abk"
  4. 'Load "work:Amos/Mrock.abk"
  5. SC=0
  6. Paper 0 : Cls : Pen 2 : Locate 6,3 : Print "Fernando Bartra 'AceCracker'" : Wait 30
  7. Pen 6 : Locate 6,3 : Print "Fernando Bartra 'AceCracker'" : Wait 30
  8. Pen 2 : Locate 6,5 : Print "      presents" : Wait 30
  9. Pen 6 : Locate 6,5 : Print "      presents" : Wait 30
  10. Pen 2 : Locate 6,7 : Print "   NINJA MISSION 2" : Wait 30
  11. Pen 6 : Locate 6,7 : Print "   NINJA MISSION 2" : Wait 30
  12. Pen 2 : Locate 1,20 : Print "press any key now and on title screen"
  13. Pen 3 : Locate 6,7 : Print "   NINJA MISSION 2" : Wait 50
  14. Wait Key 
  15. UNO:
  16. Cls : Pen 3
  17. 'Load Iff "Graphics 2:ninja mission 2.pic",0 
  18. Unpack 8 To 0
  19. Music 1
  20. 'Load Iff "Graphics 2:waterfall",0 
  21. Wait Key 
  22. Paper 0 : Pen 5 : Cls 
  23. Locate 9,1 : Print "*******************"
  24. Locate 9,2 : Print "* NINJA MISSION 2 *"
  25. Locate 9,3 : Print "*******************"
  26. Locate 2,5 : Pen 6 : Print "An Amos game by Fernando Bartra"
  27. Locate 5,5 : Pen 10 : Print "Amos"
  28. Locate 1,7 : Pen 6 : Print "This game is Public Domain and freely"
  29. Locate 14,7 : Pen 10 : Print "Public Domain" : Pen 6
  30. Locate 1,8 : Print "distributable. Spread it!!!!"
  31. Locate 1,10 : Print "You can write to me at:"
  32. Locate 1,11 : Print "Fernando Bartra"
  33. Locate 1,12 : Print "e-mail adress"
  34. Locate 1,13 : Print "fer007@scri.fsu.edu"
  35. Locate 1,15 : Print "Greetings to :" : Pen 10
  36. Locate 1,16 : Print "Carl Young  and  Rodrigo Manique"
  37. Locate 1,19 : Pen 6 : Print "          press any key"
  38. Wait Key 
  39. Cls 
  40. Locate 1,1 : Print "        Instructions"
  41. Locate 1,3 : Pen 10 : Print "joystick right/left:"
  42. Locate 1,4 : Pen 10 : Print "joystick right/fire:"
  43. Locate 1,5 : Pen 10 : Print "joystick left /fire:"
  44. Locate 1,6 : Pen 10 : Print "joystick down /fire:"
  45. Locate 1,7 : Pen 10 : Print "joystick  up  /fire:"
  46. Locate 1,8 : Pen 10 : Print "joystick     up    :"
  47. Locate 1,9 : Pen 10 : Print "joystick    down   :"
  48. Locate 22,3 : Pen 6 : Print "move right or left"
  49. Locate 22,4 : Pen 6 : Print "kick to the right"
  50. Locate 22,5 : Pen 6 : Print "kick to the left"
  51. Locate 22,6 : Pen 6 : Print "throwing star"
  52. Locate 22,7 : Pen 6 : Print "high punch"
  53. Locate 22,8 : Pen 6 : Print "jumpside kick"
  54. Locate 22,9 : Pen 6 : Print "squat "
  55. Locate 1,11 : Print " During game use joystick in port 2"
  56. Locate 1,12 : Print " to switch screens press any key"
  57. Locate 1,13 : Print " or fire button if necessary"
  58. Locate 1,15 : Print "   press a key to fight "
  59. Wait Key 
  60. Cls 
  61. Unpack 6 To 0 : Pen 3
  62. X=150 : Y=180 : N=1 : Z=250 : M=20 : H=20 : I=20 : B=0 : C=0
  63. F=0 : E=0
  64. Locate 7,4 : Print "press a key"
  65. Wait Key 
  66. Music Off 
  67. Bob 0,Z,130,M : Sam Play 7
  68. RUTINA:
  69. 'Locate 5,5 : Print "x ";X;"  z ";Z;"  f ";F;"  "
  70. Locate 7,2 : Print "score ";SC;"  "
  71. Locate 7,4 : Print "hitpoints ";H;"  "
  72. Locate 7,6 : Print "enemy man ";I;"  "
  73. If H<1 Then Goto LOST
  74. If I=0 Then Goto WON
  75. Sprite 1,X,Y,N
  76. R=Jright(1)
  77. L=Jleft(1)
  78. U=Jup(1)
  79. D=Jdown(1)
  80. 'fire
  81. If Fire(1) and R=-1 Then Goto KICKR
  82. If Fire(1) and L=-1 Then Goto KICKL
  83. If Fire(1) and U=-1 Then Goto PUNCH
  84. If Fire(1) and D=-1 Then Goto SHOT
  85. 'right 
  86. If R=-1 Then Goto DEREMO
  87. 'left
  88. If L=-1 Then Goto IZMO
  89. 'up
  90. If U=-1 Then Goto ARRIMO
  91. 'down
  92. If D=-1 Then Goto ABAMO
  93. 'kick
  94. If(X-Z)=100 Then Goto MALOKICK
  95. If Z<>X Then Goto TRACK
  96. If Z=X Then Z=Z-1
  97. Goto RUTINA
  98. '
  99. IZMO:
  100. F=F+1
  101. If X=150 Then Goto RUTINA
  102. If F>10 Then Goto SI
  103. X=X-1
  104. N=8
  105. Wait 1
  106. A=Rnd(20)
  107. If A>0 and A<6 Then Goto TRACK
  108. Goto RUTINA
  109. '
  110. SI:
  111. E=E+1
  112. If E>10 Then F=0 : E=0 : N=8 : Goto RUTINA
  113. X=X-1 : N=28
  114. Goto RUTINA
  115. '
  116. DEREMO:
  117. F=F+1
  118. If F>10 Then Goto SD
  119. If X=350 Then Goto RUTINA
  120. Sprite 1,X,Y,1
  121. X=X+1
  122.  N=1
  123. Wait 1
  124. A=Rnd(20)
  125. If A>0 and A<6 Then Goto TRACK
  126. Goto RUTINA
  127. '
  128. SD:
  129. E=E+1
  130. If E>10 Then F=0 : E=0 : Goto DEREMO
  131. Sprite 1,X,Y,27 : N=27
  132. Goto RUTINA
  133. '
  134. ABAMO:
  135. If N=1 Then Sprite 1,X,Y,6 : Wait 3 : Goto RUTINA
  136. If N=8 Then Sprite 1,X,Y,12 : Wait 3 : Goto RUTINA
  137. Goto RUTINA
  138. '
  139. ARRIMO:
  140. Sam Play 1
  141. If N=1 or N=27 Then Sprite 1,X,Y,5 : Wait 3
  142. If N=8 or N=28 Then Sprite 1,X,Y,11 : Wait 3
  143. If(X-Z)>150 and(X-Z)<160 Then I=I-1 : Goto AFTER
  144. If(X-Z)=100 Then I=I-1 : Goto AFTER
  145. Goto RUTINA
  146. '
  147. KICKR:
  148. Sam Play 8
  149. If N=1 or N=27 Then Sprite 1,X,Y,3 : Wait 3
  150. If(X-Z)=100 Then I=I-1 : Goto AFTER
  151. Goto RUTINA
  152. '
  153. KICKL:
  154. Sam Play 8
  155. If N=8 or N=28 Then Sprite 1,X,Y,10 : Wait 3
  156. If(X-Z)>150 and(X-Z)<160 Then I=I-1 : Goto AFTER
  157. Goto RUTINA
  158. '
  159. PUNCH:
  160. Sam Play 8
  161. If N=1 or N=27 Then Sprite 1,X,Y,2 : Wait 3
  162. If N=8 or N=28 Then Sprite 1,X,Y,9 : Wait 3
  163. If(X-Z)>150 and(X-Z)<160 Then I=I-1 : Goto AFTER
  164. If(X-Z)=100 Then I=I-1 : Goto AFTER
  165. Goto RUTINA
  166. '
  167. SHOT:
  168. If N=1 Then Sprite 1,X,Y,7 : Wait 3 : 
  169. If N=8 Then Sprite 1,X,Y,13 : Wait 3 : 
  170. Goto BALL
  171. '
  172. BALL:
  173. Sam Play 2
  174. G=X-100
  175. Bob 2,G,130,25
  176. For G=G To Z Step 1
  177. Bob 2,G,130,25
  178. Wait 1
  179. Next G
  180. A=Rnd(3)
  181. If A=2 or A=3 Then Bob 2,-500,225,25 : I=I-5 : Sam Play 3 : Goto RUTINA
  182. '
  183. BALLT:
  184. Bob 0,Z,130,24
  185. For G=Z To(X-100) Step -1
  186. Bob 2,G,130,25
  187. Wait 1
  188. Next G
  189. Bob 2,-500,325,25
  190. H=H-5 : Sam Play 3
  191. Goto RUTINA
  192. '
  193. AFTER:
  194. 'If(X-Z)>150 and(X-Z)<160 Then Goto MALOT
  195. 'If(X-Z)=100 Then Goto MALOKICK
  196. Locate 7,6 : Print "enemy man ";I;"  "
  197. Bob 0,Z,130,32 : Sam Play 9
  198. Wait 60
  199. X=150 : N=1 : Z=250 : M=20 : Bob 0,Z,130,M
  200. Goto TRACK
  201. '
  202. MALOKICK:
  203. A=Rnd(4)
  204. If A=2 Then Bob 0,Z,130,22 : Goto MAT
  205. If A=1 Then Bob 0,Z,130,21 : Goto MAT
  206. If A=3 Then Goto RUTINA
  207. If A=4 Then Bob 0,Z,130,23 : H=H-2 : Goto MAT
  208. Goto RUTINA
  209. '
  210. MAT:
  211. Sam Play 8
  212. Wait 3
  213. H=H-1
  214. Locate 7,4 : Print "hitpoints ";H;"  "
  215. Sprite 1,X,Y,31 : Sam Play 9
  216. Wait 60
  217. X=150 : N=1 : Z=250 : M=20 : Bob 0,Z,130,M
  218. Goto RUTINA
  219. '
  220. MALOT:
  221. A=Rnd(2)
  222. If A=2 Then Goto RUTINA
  223. Bob 0,Z,130,16
  224. Wait 3
  225. H=H-1
  226. Locate 7,4 : Print "hitpoints ";H;"  "
  227. Sprite 1,X,Y,31 : Sam Play 9
  228. Wait 60
  229. X=150 : N=1 : Z=250 : M=20 : Bob 0,Z,130,M
  230. Goto RUTINA
  231. '
  232. TRACK:
  233. If Z=>50 and X=>190 and Z<250 Then Goto TRACKT
  234. B=B+1 : If B>5 and Z>50 Then Goto SWITCHL
  235. If(X-Z)>100 and Z>50 Then Z=Z-1 : Bob 0,Z,130,29 : M=20 : Wait 1
  236. If(X-Z)<100 and Z>50 Then Z=Z-1 : Bob 0,Z,130,29 : M=20 : Wait 1
  237. Goto RUTINA
  238. '
  239. TRACKT:
  240. B=B+1
  241. If(X-Z)<100 and B>5 and Z>50 Then Goto SWITCHL
  242. If(X-Z)<100 and Z>50 Then Z=Z-1 : Bob 0,Z,130,29 : M=20 : Wait 1 : Goto RUTINA
  243. If B>5 Then Goto SWITCHR
  244. Z=Z+1 : M=30 : Bob 0,Z,130,M : Wait 1 : Goto RUTINA
  245. '
  246. SWITCHL:
  247. Z=Z-1
  248. Bob 0,Z,130,20 : C=C+1 : Wait 3
  249. If C>5 Then B=0 : C=0 : Goto RUTINA
  250. Goto RUTINA
  251. '
  252. SWITCHR:
  253. Z=Z+1
  254. Bob 0,Z,130,14 : C=C+1 : Wait 3
  255. If C>5 Then B=0 : C=0 : Goto RUTINA
  256. Goto RUTINA
  257. '
  258. LOST:
  259. Locate 5,5 : Print " you lost the fight buddy"
  260. Sprite 1,X,Y,31 : Sam Play 9
  261. Wait 50
  262. Wait Key 
  263. SC=0
  264. Paper 0 : Cls 
  265. Locate 5,5 : Print "you have lost the fight"
  266. Locate 5,7 : Print "sorry but you were not good enough"
  267. Locate 5,9 : Print "press a key to start over"
  268. Wait 60
  269. Wait Key 
  270. Cls 
  271. Sprite 1,-50,Y,N
  272. 'Load Iff "Graphics 2:lose.pic",0
  273. Unpack 9 To 0 : Sam Play 9
  274. Wait Key 
  275. Goto UNO
  276. '
  277. WON:
  278. Locate 5,5 : Print " you won the fight !!!!"
  279. Bob 0,Z,130,32 : Sam Play 6
  280. Wait 50
  281. Locate 5,5 : Print "press any key           "
  282. Wait Key 
  283. Cls 
  284. 'Load Iff "Graphics 2:Victory.pic",0 
  285. Sprite 1,-50,Y,N
  286. Unpack 7 To 0
  287. WON2:
  288. If Fire(1) Then Goto WON3
  289. Goto WON2
  290. '
  291. WON3:
  292. Paper 0 : Cls 
  293. For S=1 To 100
  294. SC=SC+1
  295. Locate 5,3 : Print "score ";SC;"  "
  296. Wait 3
  297. Next S
  298. Sam Play 4 : Wait 50
  299. Locate 5,5 : Print "you have won the fight"
  300. Locate 5,7 : Print "you proved that you are a ninja"
  301. Locate 5,9 : Print "press a key to go to next fight"
  302. Wait 60
  303. Wait Key 
  304. Goto UNO